home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #2 / utv1n2s2.d64 / home inv mgr (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  866b  |  25 lines
  1. 1 rem  ********************************
  2. 2 rem  *                              *
  3. 3 rem  *    home inventory manager    *
  4. 4 rem  *             by               *
  5. 5 rem  *         stan fisher          *
  6. 6 rem  *                              *
  7. 7 rem  *     (c)1987 stan fisher      *
  8. 8 rem  *                              *
  9. 9 rem  * published by uptime magazine *
  10. 10 rem *                              *
  11. 11 rem ********************************
  12. 15 rem poke808,225
  13. 20 printchr$(14):printchr$(8):poke53280,3:poke53281,3:print"[147]":printchr$(5)
  14. 30 print""spc(9)"[200][207][205][197][160][201][206][214][197][206][212][207][210][217][160][205][193][206][193][199][197][210]":
  15. 40 printchr$(31)spc(9)"[195]reated by [211]tan [198]isher"
  16. 50 print"([195]) [195]opyright 1986 [211]tan [199]. [198]isher"
  17. 60 printspc(10)"[193]ll [210]ights [210]eserved":print""
  18. 90 printchr$(5)""spc(1)"[208]ublished by [211]oftdisk [208]ublishing, [201]nc.";
  19. 95 poke787,22:poke1023,6:poke2,2
  20. 100 printchr$(159)"load "chr$(34)"inventory"chr$(34)",8"
  21. 110 poke198,6
  22. 120 data 19,13,82,85,78,13
  23. 130 fori=1to6:readx:poke630+i,x:next
  24. 140 new
  25.